SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATE PROCEDURE [dbo].[SP_TTFECH_ASTO_Q01]
/*--------------------------------------------------------------*/
/*---- Empresa		   : OFISIS S.A					----*/
/*---- Cliente		   : OFISIS S.A					----*/
/*---- Sistema		   : Ofiteso					----*/
/*---- Modulo		   : Empresa					----*/
/*---- Programa	   	   : Devuelve Nro de Asiento o Correlativos de un documento 	----*/
/*---- Script		   : 							----*/
/*---- Nombre SP	   : SP_TTFECH_ASTO_Q01			----*/
/*---- Desarrollado por: Carlos Marquez E.			----*/
/*---- Fecha Creacion	: 06/05/2004				----*/
/*---- Base de Datos	: SQL						----*/
/*---- Version		   : 2000						----*/
/*---- Invoca a SP 	   :							----*/
/*------------------------------------------------------*/
/*-------------------------------------------------------*/
/*---- Comentarios         : 						----*/
/*---- Drop Procedure  SP_TTFECH_ASTO_Q01           ----*/
/*---- Grant ALL on  to public           			----*/
/*---- 												----*/
/*------------------------------------------------------*/
/*---- Grant Execute On SP_TTFECH_ASTO_Q01 to Public---*/
/*---- 	Declare @VSNU_ASTO TD_VC_010
		Exec SP_TTFECH_ASTO_Q01 '01', 'P', '10080857971', 'FAC', '0002-0000005989', 'E', @VSNU_ASTO 
OUTPUT
		Select @VSNU_ASTO							--*/
/*--------------------------------------------------------------------------*/
@ISCO_EMPR	TD_VC_002,
@ISTI_ENTI	TD_VC_001,
@ISCO_ENTI 	TD_VC_020,
@ISTI_DOCU	TD_VC_003,
@ISNU_DOCU	TD_VC_020,
@ISTI_ASTO	TD_VC_001,
@ISNU_ASTO	TD_VC_010 OUTPUT
As
Declare 
  @VSCO_TIAU_CLIE	TD_VC_001,
  @VSCO_TIAU_PROV	TD_VC_001,
  @VSTI_DOCU_LETR	TD_VC_003,
  @VSNU_ASTO		TD_VC_010,
  @VSNU_CORR_COMP	TD_VC_020
	
	Select @VSTI_DOCU_LETR = TI_DOCU
	From TTDOCU_CNTB
	Where ST_DOCU_0006 = 'S'

	Select @VSCO_TIAU_CLIE = CO_TIAU_CLIE, @VSCO_TIAU_PROV = CO_TIAU_PROV
	From TMPARA_TESO
	Where CO_EMPR = @ISCO_EMPR

	If @ISTI_ENTI = @VSCO_TIAU_CLIE
	  Begin
		If @ISTI_DOCU != @VSTI_DOCU_LETR
			Select @VSNU_ASTO = NU_ASTO,
					@VSNU_CORR_COMP = Null
			From TMDOCU_CLIE
			Where CO_EMPR = @ISCO_EMPR
			And CO_CLIE = @ISCO_ENTI
			And CO_TIPO_DOCU = @ISTI_DOCU
			And NU_DOCU_CLIE = @ISNU_DOCU
		Else
			Select @VSNU_ASTO = IsNull(NU_CANJ, NU_RENO),
					@VSNU_CORR_COMP = Null
			From TMLETR_CLIE
			Where CO_EMPR = @ISCO_EMPR
			And CO_CLIE = @ISCO_ENTI
			And NU_LETR_CLIE = @ISNU_DOCU
	  End
	Else
	  Begin
		If @ISTI_DOCU != @VSTI_DOCU_LETR
			Select @VSNU_ASTO = NU_ASTO,
					@VSNU_CORR_COMP = NU_CORR_COMP
			From TMDOCU_PROV
			Where CO_EMPR = @ISCO_EMPR
			And CO_PROV = @ISCO_ENTI
			And CO_TIPO_DOCU = @ISTI_DOCU
			And NU_DOCU_PROV = @ISNU_DOCU
		Else
			Select @VSNU_ASTO = IsNull(NU_CANJ, NU_RENO),
					@VSNU_CORR_COMP = Null
			From TMLETR_PROV
			Where CO_EMPR = @ISCO_EMPR
			And CO_PROV = @ISCO_ENTI
			And NU_LETR_PROV = @ISNU_DOCU
	  End

	If @ISTI_ASTO = 'A'
		Select @ISNU_ASTO = @VSNU_ASTO
	Else
   		Select @ISNU_ASTO = @VSNU_CORR_COMP

/* ---------------------------- Fin -----------------------------------*/


GO
